unit SplitByTStringList;

interface
uses
  SysUtils,
  Classes,
  Points;

procedure SplitByTSL(var List : TList;FileName : String);

implementation

procedure SplitByTSL(var List : TList;FileName : String);
var
  SL,SLD : TStringList;
  I,J : Integer;
  MyPoint : PPoint;
begin
  SL := TStringList.Create;
  SLD := TStringList.Create;
  SL.LoadFromFile(FileName);
  for I := 0 to SL.Count-1 do
  begin
    SLD.DelimitedText := SL[I];
    new(MyPoint);
    MyPoint.X := StrToFloat(SLD[0]);
    MyPoint.Y := StrToFloat(SLD[1]);
    List.Add(MyPoint);
  end;
  SL.Free;
  SLD.Free;
end;

end.





